home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / studio_pgs_imagefx / install-studioupdate < prev    next >
Text File  |  1996-08-14  |  13KB  |  515 lines
  1. ; $VER: StudioUpdate 2.12 - 14.08.96
  2. ; Copyright (C)1996 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. (set #waitmsg
  8. (cat "\n\n\n\nWorking. Please wait..."
  9. ))
  10. (set #bad-kick
  11. (cat    "\nYour system software is very old. "
  12.     "You must use at least Kickstart 2.04 for all Studio programs. "
  13. ))
  14. (set #wichproggy
  15. (cat "\n\nPlease select the printing program you own"
  16. ))
  17. (set #proggyhelp
  18. (cat "This disk comes with new and additional software for either "
  19.     "CanonStudio (registered) or Studio users.\n"
  20.     "Please select the program you own now.\n\n"
  21. ))
  22. (set #proggystudio
  23. (cat "Studio"
  24. ))
  25. (set #proggycanon
  26. (cat "CanonStudio"
  27. ))
  28.  
  29. (set #abortunpack
  30. (cat "\nError occured while running the installation decompression program. "
  31.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  32. ))
  33. (set #foundstudio
  34. (cat "\nI found your Studio/CanonStudio printing program. Shall\nI use the printing program found in the drawer:\n\n%s\n\n"
  35. ))
  36. (set #foundstudiohelp
  37. (cat "When selecting yes, the Studio/CanonStudio program will be updated in the location found if necessary.\n\n"
  38.     "When selecting no, you will be asked for a Studio/CanonStudio filename you want to use\n\n"
  39. ))
  40. (set #yesuse
  41. (cat "Yes, use it"
  42. ))
  43. (set #nodrawer
  44. (cat "No, select new drawer"
  45. ))
  46. (set #bad-version2
  47. (cat    "This install program will only work with Studio V2.11 and newer. "
  48.     "Your Studio program is version %ld.%ld. Please get an update. "
  49. ))
  50. (set #nopgs
  51. (cat    "Sorry, I can't locate the \"Pagestream3:SoftLogik/Printers\" drawer containing the PageStream "
  52.     "printer drivers. So I can't install the PageStream driver. Please check your "
  53.     "PageStream installation and try again"
  54. ))
  55. (set #nofx
  56. (cat    "Sorry, I can't locate the \"ImageFX2:modules/printer\" drawer containing the ImageFX "
  57.     "printer modules. Please check your ImageFX installation and try again"
  58. ))
  59. (set #madupdate
  60. (cat    "Your Studio/CanonStudio printing program was updated to version 2.12."
  61. ))
  62. (set #madpgsupdate
  63. (cat    "A PageStream 3.0i Studio driver was installed."
  64. ))
  65. (set #madpgsupdate2
  66. (cat    "A PageStream 3.1 beta 1,2,3 Studio driver was installed."
  67. ))
  68. (set #madfxupdate
  69. (cat    "An ImageFX Studio printer module was installed."
  70. ))
  71. (set #ask-studiomod
  72. (cat "\nSelect the disk or drawer the Studio or CanonStudio application program is placed in. "
  73. ))
  74. (set #ask-studiomod-help
  75. (cat "You should now select the drawer the 'Studio' or 'CanonStudio' application program is placed in. "
  76.     "Usually the program is placed in the Studio/CanonStudio drawer and thus the Studio/CanonStudio drawer "
  77.     "should be selected.\n\n"
  78.     @askdir-help
  79. ))
  80. ;--------------
  81. (set #w-appdriv
  82. (cat "Do you want to install a Studio driver for:"
  83. ))
  84. (set #w-appdriv-help
  85. (cat "\nSome Amiga applications do allow the use of custom printer drivers."
  86.     "These drivers usualy don't use the systems printer device for printing."
  87.     "You can now install such non-system drivers for these applications. "
  88.     "The drivers allow direct printing using the Studio printing program.\n\n"
  89.     @askoptions-help
  90. ))
  91. (set #w-appdriv-choices0
  92. (cat "ImageFX 2.x"
  93. ))
  94. (set #w-appdriv-choices1
  95. (cat "PageStream 3.0i"
  96. ))
  97. (set #w-appdriv-choices2
  98. (cat "PageStream 3.1 beta 1, 2, 3"
  99. ))
  100. ;--------------
  101. ;*** German
  102. (if (= @language "deutsch")
  103. (
  104.     (set #waitmsg
  105.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  106.     ))
  107.     (set #bad-kick
  108.     (cat    "\nIhre System-Software ist sehr alt. "
  109.         "Sie brauchen mindestens Kickstart 2.04 für alle Studio-Programme."
  110.     ))
  111.     (set #wichproggy
  112.     (cat "\n\nBitte wählen Sie das Programm, das Sie besitzen.\n"
  113.     ))
  114.     (set #proggyhelp
  115.     (cat "Dieses Installationsprogramm kann sowohl für CanonStudio als auch Studio\n"
  116.         "einen PageStream Treiber installieren. Bitte wählen Sie, welches Programm "
  117.         "Sie besitzen.\n\n"
  118.     ))
  119.     (set #proggystudio
  120.     (cat "Studio"
  121.     ))
  122.     (set #proggycanon
  123.     (cat "CanonStudio"
  124.     ))
  125.     (set #abortunpack
  126.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  127.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  128.     ))
  129.     (set #foundstudio
  130.     (cat "\nIch habe Ihr installiertes Studio bzw. CanonStudio Druckprogramm gefunden. Kann ich das Programm in der folgenden Schublade updaten:\n\n%s\n\n"
  131.     ))
  132.     (set #foundstudiohelp
  133.     (cat "Wählen Sie ja, dann wird das Programm in der angegebenen Schublade erneuert falls nötig.\n\n"
  134.         "Wählen Sie Nein, erscheint ein Dateiauswahlfenster und Sie können eine "
  135.         "andere Schublade mit dem Druckprogramm angeben.\n\n"
  136.     ))
  137.     (set #yesuse
  138.     (cat "Ja, updaten"
  139.     ))
  140.     (set #nodrawer
  141.     (cat "Nein, andere Schublade"
  142.     ))
  143.     (set #bad-version2
  144.     (cat    "Dieses Installationsprogramm benötigt Studio Version 2.11 oder neuer. "
  145.         "Ihre Studio Programm ist Version %ld.%ld."
  146.     ))
  147.     (set #nopgs
  148.     (cat    "Leider kann ich Ihre \"Pagestream3:SoftLogik/Printers\" Schublade mit den PageStream "
  149.         "Druckertreibern nicht finden. Ich kann daher auch keinen neuen Treiber installieren. "
  150.         "Bitte prüfen Sie Ihre PageStream Installation."
  151.     ))
  152.     (set #nofx
  153.     (cat    "Leider kann ich Ihre \"ImageFX2:modules/printer\" Schublade mit den ImageFX "
  154.             "Druckertreibern nicht finden. Ich kann daher auch keinen neuen Treiber installieren. "
  155.             "Bitte prüfen Sie Ihre ImageFX Installation."
  156.     ))
  157.     (set #madupdate
  158.     (cat    "Ihr Druckprogramm wurde auf Version 2.12 upgedated."
  159.     ))
  160.     (set #madpgsupdate
  161.     (cat    "Ein PageStream 3.0i Studio Treiber wurde installiert."
  162.     ))
  163.     (set #madpgsupdate2
  164.     (cat    "Ein PageStream 3.1 beta 1,2,3 Studio Treiber wurde installiert."
  165.     ))
  166.     (set #madfxupdate
  167.     (cat    "Ein ImageFX Studio Druckermodul wurde installiert."
  168.     ))
  169.     (set #ask-studiomod
  170.     (cat "\nBitte wählen Sie die Schublade, in dem sich das 'Studio'- bzw. 'CanonStudio'-Programm befindet."
  171.     ))
  172.     (set #ask-studiomod-help
  173.     (cat @askdir-help
  174.     ))
  175.     ;--------------
  176.     (set #w-appdriv
  177.     (cat "Wollen Sie Treiber für folgende Programme:"
  178.     ))
  179.     (set #w-appdriv-help
  180.     (cat "\nEinige Amiga Anwendungsprogramme bieten eigene Druckertreiber. "
  181.         "Sie können jetzt für einige Programme spezielle Treiber für "
  182.         "diese Programme installieren.\n\n"
  183.         @askoptions-help
  184.     ))
  185.     (set #w-appdriv-choices0
  186.     (cat "ImageFX 2.x"
  187.     ))
  188.     (set #w-appdriv-choices1
  189.     (cat "PageStream 3.0i"
  190.     ))
  191.     (set #w-appdriv-choices2
  192.     (cat "PageStream 3.1 beta 1, 2, 3"
  193.     ))
  194. ))
  195.  
  196.  
  197. (procedure Meter
  198. (
  199.     (set accum    (+ accum addm))
  200.     (complete (/ (* accum 100) total))
  201. ))
  202.  
  203. (complete 0)
  204. ;(message #welcome-pirate)
  205.  
  206. (set @default-dest "")
  207. (set total    0)
  208. (set accum    0)
  209. (set addm    0)
  210. (set firstdisk "")
  211. (if (< (/ (getversion) 65536) 37)
  212.     (abort #bad-kick)
  213. )
  214. (set total 120)
  215. (complete 1)
  216. (set proggy "CanonStudio")
  217. (if (askbool (prompt (#wichproggy))
  218.     (choices #proggystudio #proggycanon)
  219.     (help (#proggyhelp))
  220.     (default 1))
  221. (
  222.     (set proggy "Studio")
  223. ))
  224. (set addm 5)
  225. (Meter)
  226. (working #waitmsg)
  227. (if (= "Studio" proggy)
  228. (
  229.     (copyfiles (source "lx")
  230.         (dest "t:")
  231.         (nogauge)
  232.     )
  233. )
  234. (
  235.     (copyfiles (source "lxc")
  236.         (dest "t:")
  237.         (newname "lx")
  238.         (nogauge)
  239.     )
  240. ))
  241. (set addm 5)
  242. (Meter)
  243. (set exerr (run "t:lx n"))
  244. (if (> exerr 0)
  245. (
  246.     (abort (#abortunpack "-none-"))
  247. ))
  248.  
  249. (set addm 5)
  250. (Meter)
  251. (set studiopath "");
  252. (if (= (exists "ENV:STUDIOPATH") 1)
  253. (
  254.     (set studiopath (getenv "StudioPath"))
  255. ))
  256. (set addm 5)
  257. (Meter)
  258. (set found 1)
  259. (if (> (strlen studiopath) 1)
  260. (
  261.     (if (= (substr studiopath 0 1)  "\"")
  262.     (
  263.         (set studiopath (substr studiopath 1 (- (strlen studiopath) 2)))
  264.     ))
  265.     (if (= (exists studiopath) 1)
  266.     (
  267.         (if (= (fileonly studiopath) proggy)
  268.         (
  269.             (set found 2)
  270.             (if (askbool (prompt (#foundstudio (pathonly studiopath)))
  271.                 (choices #yesuse #nodrawer)
  272.                 (help (#foundstudiohelp))
  273.                 (default 1))
  274.             (
  275.                 (set found 0)
  276.             ))
  277.         ))
  278.     ))
  279. ))
  280. (set addm 5)
  281. (Meter)
  282. (if (> found 0)
  283. (
  284.     (if (= found 1)
  285.     (
  286.         (set studiopath (getassign "WORK" "d"))
  287.         (if (= studiopath "")
  288.         (
  289.             (set studiopath (getassign "DH0" "d"))
  290.             (if (= studiopath "")
  291.             (
  292.                 (set studiopath (getassign "DH1" "d"))
  293.                 (if (= studiopath "")
  294.                 (
  295.                     (set studiopath "SYS:")
  296.                 ))
  297.             ))
  298.         ))
  299.         (set studiopath (tackon studiopath proggy)) 
  300.     ))
  301.     (set studiopath  (askdir (prompt (#ask-studiomod proggy))
  302.         (help #ask-studiomod-help)
  303.         (default (pathonly (studiopath)))
  304.     ))
  305.     (set studiopath (tackon studiopath proggy))
  306.     (if (<> (exists studiopath) 1)
  307.     (
  308.         (abort (#nostudiopro proggy studiopath))
  309.     ))
  310.     (textfile   (dest "Env:StudioPath")
  311.         (append (cat "\"" studiopath "\"")) )
  312.     (textfile   (dest "Envarc:StudioPath")
  313.         (append (cat "\"" studiopath "\"")) )
  314. ))
  315. (set addm 5)
  316. (Meter)
  317. (working #waitmsg)
  318. (makeassign "STUDIOPARENT" (pathonly (studiopath)))
  319. (set ver 0)
  320. (set rev 0)
  321. (if (= (exists (cat "STUDIOPARENT:" proggy)) 1)
  322. (
  323.     (set vernum (getversion (cat "STUDIOPARENT:" proggy)))
  324.     (set ver (/ vernum 65536))
  325.     (set rev (- vernum (* ver 65536) ) )
  326. ))
  327. (set addm 5)
  328. (Meter)
  329. (if (OR (< ver 2) (< rev 11))
  330. (
  331.     (if (= "Studio" proggy)
  332.     (
  333.         (abort (#bad-version2 ver rev))
  334.     ))
  335. ))
  336. (set addm 5)
  337. (Meter)
  338. (if (NOT (OR (> ver 2) (> rev 12)))
  339. (
  340.     (set exerr (run (cat "t:lx x \""proggy "/" proggy".pkd\" \"STUDIOPARENT:\"")))
  341.     (if (> exerr 0)
  342.     (
  343.         (abort (#abortunpack (cat proggy "/" proggy ".pkd")))
  344.     ))
  345.     (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) (cat proggy "_Output")))
  346.     (if (= (exists "STUDIOPARENT:CanonBJC800.output") 1)
  347.     (
  348.         (set exerr (run (cat "T:lx x " proggy "/CanonBJC800.pkd \"STUDIOPARENT:\"")))
  349.         (if (> exerr 0)
  350.         (
  351.             (abort (#abortunpack (cat proggy "/CanonBJC800.pkd")))
  352.         ))
  353.     ))
  354.     (if (= (exists "STUDIOPARENT:IFF_ILBM.output") 1)
  355.     (
  356.         (set exerr (run (cat "T:lx x " proggy "/iff.pkd \"STUDIOPARENT:\"")))
  357.         (if (> exerr 0)
  358.         (
  359.             (abort (#abortunpack (cat proggy "/iff.pkd")))
  360.         ))
  361.     ))
  362.     (message #madupdate)
  363. ))
  364. (set addm 20)
  365. (Meter)
  366. (working #waitmsg)
  367.  
  368. (set appdef 0)
  369. (set fxassign "")
  370. (set guessdrawer (getassign "ImageFX" "a"))
  371. (if (<> guessdrawer "")
  372. (
  373.     (set fxassign "ImageFX:Modules/Printer")
  374. ))
  375. (set guessdrawer (getassign "ImageFX2" "a"))
  376. (if (<> guessdrawer "")
  377. (
  378.     (set fxassign "ImageFX2:Modules/Printer")
  379. ))
  380. (if (<> fxassign "")
  381. (
  382.     (set appdef (BITOR appdef (shiftleft 1 0)))
  383. ))
  384. (set guessdrawer (getassign "PageStream3" "a"))
  385. (if (<> guessdrawer "")
  386. (
  387.     (set ver 0)
  388.     (set rev 0)
  389.     (if (= (exists (cat "PageStream3:PageStream3")) 1)
  390.     (
  391.         (set vernum (getversion (cat "PageStream3:PageStream3")))
  392.         (set ver (/ vernum 65536))
  393.         (set rev (- vernum (* ver 65536) ) )
  394.     ))
  395.     (if (AND (= ver 3) (= rev 0))  ; WARNING: 3.1 beta 1,2,3 doesn't return v3 rev 1
  396.     (
  397.         (set appdef (BITOR appdef (shiftleft 1 1)))
  398.     )
  399.     (
  400.         (set appdef (BITOR appdef (shiftleft 1 2)))
  401.     ))
  402. ))
  403.  
  404. (set appdriv (askoptions (prompt #w-appdriv)
  405.     (help #w-appdriv-help)
  406.     (choices #w-appdriv-choices0 #w-appdriv-choices1 #w-appdriv-choices2)
  407.     (default appdef)
  408. ))
  409. (working #waitmsg)
  410.  
  411. (if (IN appdriv 0) ; ImageFX2 Driver
  412. (
  413.     (if (<> fxassign "")
  414.     (
  415.         (if (= (exists fxassign) 2)
  416.         (
  417.             (set ver 0)
  418.             (set rev 0)
  419.             (if (= (exists (cat fxassign "/Studio")) 1)
  420.             (
  421.                 (set vernum (getversion (cat fxassign "/Studio")))
  422.                 (set ver (/ vernum 65536))
  423.                 (set rev (- vernum (* ver 65536) ) )
  424.             ))
  425.             (if (AND (< ver 2) (< rev 1))
  426.             (
  427.                 (set exerr (run (cat "t:lx x \""proggy "/FX.pkd\" " fxassign)))
  428.                 (if (> exerr 0)
  429.                 (
  430.                     (abort (#abortunpack (cat proggy "/FX.pkd")))
  431.                 ))
  432.                 (message #madfxupdate)
  433.             ))
  434.         )
  435.         (
  436.             (abort (#nofx))
  437.         ))
  438.     ))
  439.     
  440. ))
  441. (set addm 10)
  442. (Meter)
  443. (if (IN appdriv 1) ; PageStream 3.0i Driver
  444. (
  445.     (set guessdrawer (getassign "PageStream3" "a"))
  446.     (if (<> guessdrawer "")
  447.     (
  448.         (if (= (exists "Pagestream3:SoftLogik/Printers") 2)
  449.         (
  450.             (set ver 0)
  451.             (set rev 0)
  452.             (if (= (exists (cat "Pagestream3:SoftLogik/Printers/Studio.printer")) 1)
  453.             (
  454.                 (set vernum (getversion (cat "Pagestream3:SoftLogik/Printers/Studio.printer")))
  455.                 (set ver (/ vernum 65536))
  456.                 (set rev (- vernum (* ver 65536) ) )
  457.             ))
  458.             (if (AND (< ver 2) (< rev 2))
  459.             (
  460.                 (set exerr (run (cat "t:lx x \""proggy "/PGS30i.pkd\" \"Pagestream3:SoftLogik/Printers\"")))
  461.                 (if (> exerr 0)
  462.                 (
  463.                     (abort (#abortunpack (cat proggy "/PGS30i.pkd")))
  464.                 ))
  465.                 (message #madpgsupdate)
  466.             ))
  467.         )
  468.         (
  469.             (abort (#nopgs))
  470.         ))
  471.     ))
  472. ))
  473. (set addm 10)
  474. (Meter)
  475. (if (IN appdriv 2) ; PageStream 3.1 beta 1,2,3 Driver
  476. (
  477.     (set guessdrawer (getassign "PageStream3" "a"))
  478.     (if (<> guessdrawer "")
  479.     (
  480.         (if (= (exists "Pagestream3:SoftLogik/Printers") 2)
  481.         (
  482.             (set ver 0)
  483.             (set rev 0)
  484.             (if (= (exists (cat "Pagestream3:SoftLogik/Printers/Studio.printer")) 1)
  485.             (
  486.                 (set vernum (getversion (cat "Pagestream3:SoftLogik/Printers/Studio.printer")))
  487.                 (set ver (/ vernum 65536))
  488.                 (set rev (- vernum (* ver 65536) ) )
  489.             ))
  490.             (if (< ver 3)
  491.             (
  492.                 (if (NOT (AND (= ver 2) (> rev 0) ))
  493.                 (
  494.                     (set exerr (run (cat "t:lx x \""proggy "/PGS31b2.pkd\" \"Pagestream3:SoftLogik/Printers\"")))
  495.                     (if (> exerr 0)
  496.                     (
  497.                         (abort (#abortunpack (cat proggy "/PGS31b2.pkd")))
  498.                     ))
  499.                 ))
  500.                 (message #madpgsupdate2)
  501.             ))
  502.         )
  503.         (
  504.             (abort (#nopgs))
  505.         ))
  506.     ))
  507. ))
  508. (set addm 5)
  509. (Meter)
  510. (run "t:lx n")
  511. (delete "t:lx")
  512. (makeassign "STUDIOPARENT")
  513. (complete 100)
  514. ; (exit #exitmsg)
  515.